• Send me your presentation until Tuesday November 17, 2015
• If you have interactive graphs please be shure to have them also in an offline version
• If you use data please provide the source (OpenStreetMap, Google, Eurostat etc.)
• Please give some background information about the data source
• If you use R to produce maps, please send me your code (Example: myCode.R)

• You can use LaTeX Beamer/Powerpoint/Rstudio or whatever you want
• If you use Powerpoint please produce also a pdf version
• You can also use Rstudio to produce presentations (makes sense for interactive maps)

• How to get popups in interactive plots?
• How to plot two maps side by side?
• How to deal with extreme values in color coding of spplot?
• How to save plots?

• Data downloaded from:

http://www.openstreetmap.de/

• With usage of:

http://wiki.openstreetmap.org/wiki/Overpass_API

url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/CampSites_Germany.csv"
CampSites <- read.csv(url)

kable(CampSites[1:8,1:4])

library(raster)
DEU1 <- getData('GADM', country='DEU', level=1)
plot(DEU1)

plot(DEU1)
points(y=CampSites$lat,x=CampSites$lon,col="red",pch=20)

plot(DEU1)
points(y=CampSites$lat,x=CampSites$lon,col=rgb(0,1,0,.2),
       pch=20)

library(ggmap)
DE_Map <- qmap("Germany", zoom=6, maptype="hybrid")
DE_Map

DE_Map + geom_point(aes(x = lon, y = lat),
                    data = CampSites)

DE_Map + geom_density2d(data = CampSites,                  aes(x = lon, y = lat),lwd=1.5)

DE_Map + stat_density2d(data = CampSites, 
aes(x = lon, y = lat,fill = ..level..), bins = 100, 
geom = 'polygon')

DE_Map + stat_density2d(data=CampSites, 
                        aes(x=lon,y=lat,fill=..level..,
alpha = ..level..),bins=80,geom='polygon')

Prepare an interactive map

library(magrittr)
library(leaflet)

m <- leaflet() %>%
  addTiles() %>%  
  addMarkers(lng=CampSites$lon, 
             lat=CampSites$lat, 
             popup=CampSites$name)
m

popupInfo <- paste(CampSites$name,"\n",CampSites$website)

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=CampSites$lon, 
             lat=CampSites$lat, 
             popup=popupInfo)
m

Result is here:

http://rpubs.com/Japhilko82/CampSitesHL

I uploaded the result to Rpubs: http://rpubs.com/Japhilko82/Campsites

url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/whcSites.csv"
UNESCO <- read.csv(url)

library(ggmap)
ind <- UNESCO$states_name_en=="Germany"
UNESCO_DE <- UNESCO[ind,]

library(ggplot2)
DE_Map + geom_point(aes(x = longitude, y = latitude),
                    data = UNESCO_DE)

library(ggplot2)
DNunesco <- UNESCO_DE[UNESCO_DE$category=="Natural",]
DCunesco <- UNESCO_DE[UNESCO_DE$category=="Cultural",]

Csites <- DE_Map + geom_point(aes(x = longitude, 
                                  y = latitude),
                              data =DCunesco,
                              col="orange", size= 3)

Nsites <- DE_Map + geom_point(aes(x = longitude, 
                                  y = latitude),
                              data = DNunesco,
                              col="green", size= 3)

library(gridExtra)
grid.arrange(Csites, Nsites, ncol=2)

url <- "https://raw.githubusercontent.com/Japhilko/
GeoData/master/2015/data/Unemployment07a13.csv"

Unemp <- read.csv(url) 

library(tmap)
data(Europe)

iso_a2<- substr(Europe@data$iso_a3,1,2)
ind <- match(iso_a2,Unemp$GEO)
Europe@data$Val2007M12 <- Unemp$Val2007M12[ind]
Europe@data$Val2013M01 <- Unemp$Val2013M01[ind]

qtm(Europe,c("Val2007M12","Val2013M01"))

Students <- c(100, 200,30)
pie(Students)

pdf("pie_Students.pdf")
pie(Students)
dev.off()

## png 
##   2